home *** CD-ROM | disk | FTP | other *** search
/ New Star Software Collection / NSS_Collection.iso / 3-297 qmodem pro 102 / 1.ima / SCRIPT.ZIP / MSIHQ.SCR < prev    next >
Encoding:
Text File  |  1993-03-03  |  3.2 KB  |  76 lines
  1. ; This is a simple QmodemPro script that will allow you to logon to any
  2. ; WILDCAT! BBS, download a mail packet from TomCat and then upload any
  3. ; .Rep packets you have waiting for that system. To use the script
  4. ; fill out the User Id, Password, Script, and Packet fields in the
  5. ; dialing entry for the BBS you want to call. Then simply call that
  6. ; system and the script will do the rest.
  7. ;
  8. ; **********************************************************************
  9. ; To operate properly you must enter your name and password in the
  10. ; QmodemPro phonebook entry, must be in EXPERT mode in WILDCAT! and must
  11. ; have Hotkeys turned OFF.
  12. ; **********************************************************************
  13. ;
  14.  
  15. TurnON   8_BIT                       ; These Are Our Terminal Settings
  16. TurnOFF  LINEFEED                    ; For This Session
  17. TurnOFF  XON/XOFF
  18. TurnON   NOISE
  19. TurnOFF  MUSIC
  20. TurnON   SCROLL
  21. TurnOFF  PRINT
  22. TurnOFF  SPLIT
  23. TurnON   STATUSLN
  24. TurnOFF  DOORWAY
  25.  
  26. TimeOut  45                          ; Set Waitfor for 45 seconds
  27. When     "PROTOCOL MENU" "Z^M"       ; Select Default Protocol Prompt
  28.  
  29. Waitfor  "What is your first name"   ; Wait for WC to prompt for your name
  30. Delay    100
  31. Send     "!$USERID^M"                ; Send UserID from the Phone Book.
  32.  
  33. WaitFor  "Password?"                 ; Wait For Password Prompt
  34. Delay    100
  35. Send     "$PASSWORD^M"               ; Send Password From Dialing Entry
  36.  
  37. Waitfor  "TOMCAT MENU"               ; TomCat!'s Main Menu
  38.  
  39. DOWNLOADAGAIN:
  40. IF $GETMAIL DOWNLOADMAIL             ; If Downloading Qwk packet
  41. DOWNFINISHED:                        ; Label For DownFinished
  42.  
  43. UPLOADAGAIN:
  44. IF $SENDMAIL UPLOADMAIL              ; If Send Rep Packet
  45. UPSUCCESS:                           ; Label For Upload Success
  46. TimeOut 30 EXITSYSTEM                ; Goto EXITSYSTEM Upon Timeout
  47. DELETEF $REPPATH$PACKET.REP          ; Delete .REP Packet
  48. When     "Auto Logoff" "H^M"
  49. Waitfor  "TOMCAT"                    ; Wait For TomCat Menu
  50. Delay    100
  51. Send     "G^M"                       ; Send Hangup Command
  52. EXITSYSTEM:
  53. Exit                                 ; Script Is Done.
  54.  
  55. UPLOADMAIL:                          ; Label For Upload Routine
  56. Timeout  30                          ; Reset Timeout Value
  57. Delay    100
  58. Send     "U^M"                       ; Tell It To [D]ownload Mail
  59. Delay 500                            ; Pause For 1/2 Second
  60. UPLOAD Z $REPPATH$PACKET.REP         ; Upload .REP Packet
  61. IF $SUCCESS UPSUCCESS                ; If Success Then Goto UPSUCCESS
  62. GOTO UPLOADAGAIN                     ; If Not Loop Back Around
  63.  
  64. DOWNLOADMAIL:                        ; Download QWK Routine
  65. Timeout  500                         ; Timeout Value For Getting Messages
  66. When     "Nothing" DOWNFINISHED
  67. Delay    100
  68. Send     "D^M"                       ; Tell It To [D]ownload Mail
  69. Waitfor  "this packet"               ; String To Start Download
  70. Delay    100
  71. Send     "Y^M"                       ; Send Yes To Download Packet
  72. Waitfor  "Start Your"                ;
  73. DOWNLOAD Z $QWKPATH                  ; Download The .QWK Packet using Zmodem
  74. IF $SUCCESS DOWNFINISHED             ; If Successful Goto DOWNFINISHED
  75. GOTO DOWNLOADAGAIN                   ; If Not Try Again
  76.